﻿Imports AdvanceWarsNet.Game


Namespace AdvanceWarsNet.Data
    Public Class Weapon
        Inherits GameElement

        Sub New(ByVal Id As Integer)
            MyBase.New(Id)
        End Sub



        Property FireRange As Range














        ReadOnly Property IsDirect As Boolean
            Get
                Return FireRange.IsInRange(1)
            End Get
        End Property

        Public Shared Function None() As Weapon
            Dim w As New Weapon(0)
            w.FireRange = Range.NoneRange
            Return w
        End Function

    End Class
End Namespace